home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 May & June / rerun-1988-05-06.d64 / now you see it (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  114 lines
  1. 10 poke52,48:poke56,48:clr:dimd$(24),pp(8,10),ws(8):d$(0)=""
  2. 20 forx=1to24:d$(x)=d$(x-1)+"":next:goto430
  3. 30 printd$(1)mid$(ti$,1,2)":"mid$(ti$,3,2)":"mid$(ti$,5,2):return
  4. 40 gosub30:fb=peek(56320)and16:iffb=16then80
  5. 50 poke53280,14:poke53281,14
  6. 60 gosub30:fb=peek(56320)and16:iffb=0then60
  7. 70 poke53280,0:poke53281,0:goto40
  8. 80 js=peek(56320)and15:ifjs=11thendi=-1:c=1:goto130
  9. 90 ifjs=7thendi=1:c=3:goto130
  10. 100 c=2:ifjs=14thendi=-40:goto130
  11. 110 ifjs=13thendi=40:goto130
  12. 120 goto40
  13. 130 ifpeek(op+di)=160thenpoke54276,129:poke54276,128:goto40
  14. 140 np=op+di:tn=peek(np):pokenp+54272,cc:pokeop,32:pokenp,c:pokeop+54272,0
  15. 150 op=np:iftn=0then170
  16. 160 goto40
  17. 170 poke54283,17:poke54283,16:pr=pr-1:printd$(1)tab(38)pr:ifpr=0then190
  18. 180 goto40
  19. 190 tt$=ti$:forde=1to1000:next:restore:forx=1to5:readhi,lo:poke54287,hi
  20. 200 poke54286,lo:poke54290,17:forde=1to90:next:poke54290,16:forde=1to50:next
  21. 210 next
  22. 220 le=le+1:ifle=9then350
  23. 230 print"[147]":poke53280,6:poke53281,2:poke646,1:poke53272,(peek(53272)and240)or6
  24. 240 printd$(12)tab(11)"level"le"is next...":forde=1to1000:next
  25. 250 onlegosub570,580,590,600,610,620,630,640:poke646,mc:print"[147]"
  26. 260 poke53272,(peek(53272)and240)or12:poke53280,0:poke53281,0:x1=1104:x2=1143
  27. 270 s=1:gosub290:x1=1183:x2=2023:s=40:gosub290:x1=2022:x2=1984:s=-1:gosub290
  28. 280 x1=1944:x2=1144:s=-40:gosub290:goto300
  29. 290 forx=x1tox2steps:pokex,160:pokex+54272,15:next:return
  30. 300 rn=int(rnd(1)*8)+1:ifws(rn)=1then300
  31. 310 ws(rn)=1:onrngosub650,740,760,810,830,890,960,1020
  32. 320 forx=1to10:pokepp(rn,x),0:pokepp(rn,x)+54272,pc:next:op=1945
  33. 330 pokeop,2:pokeop+54272,cc:poke646,1:pr=10:printd$(1)tab(37)pr:ti$=tt$
  34. 340 goto40
  35. 350 forde=1to1000:next:print"[147]":poke53272,(peek(53272)and240)or4:poke646,0
  36. 360 poke53280,12:poke53281,15:printd$(9)tab(15)"game over"
  37. 370 printd$(12)tab(9)"time this game--"mid$(tt$,1,2)":"mid$(tt$,3,2)":";
  38. 380 printmid$(tt$,5,2):iftt$<bt$thenbt$=tt$
  39. 390 printtab(14)"best time--"mid$(bt$,1,2)":"mid$(bt$,3,2)":"mid$(bt$,5,2)
  40. 400 printd$(15)tab(4)pa$:forde=1to100:next:fb=peek(56320)and16:iffb=0then420
  41. 410 printd$(15)tab(4)bl$:forde=1to100:next:goto400
  42. 420 tt$="000000":le=0:forx=1to8:ws(x)=0:next:goto220
  43. 430 forx=54272to54295:pokex,0:next:poke54296,15:t1$="now you see it"
  44. 440 t2$="              ":pa$="press fire button to play again":bl$=""+pa$
  45. 450 bt$="235959":print"[147]":poke53280,2:poke53281,2:poke646,15:poke54277,9
  46. 460 poke54284,96:poke54291,9:forx=1to11:ro=int(rnd(1)*24):co=int(rnd(1)*25)
  47. 470 printd$(ro)tab(co)t1$:readhi,lo:forz=54273to54287step7:pokez,hi:pokez-1,lo
  48. 480 next:poke54276,33:poke54283,33:poke54290,17:forde=1to90:next:poke54276,32
  49. 490 poke54283,32:poke54290,16:printd$(ro)tab(co)t2$
  50. 500 next:poke646,7:printd$(12)tab(13)t1$:poke54277,10:poke54278,3:poke54273,10
  51. 510 poke54272,10:poke54284,25:poke54285,9:poke54280,51:poke54279,97
  52. 520 forz1=1to8:forz2=1to10:readpp(z1,z2):next:next:poke56334,peek(56334)and254
  53. 530 poke1,peek(1)and251:x1=384:x2=471:gosub560:x1=256:x2=263:gosub560:x1=1280
  54. 540 x2=1287:gosub560:poke1,peek(1)or4:poke56334,peek(56334)or1:forx=0to31
  55. 550 readd:poke12288+x,d:next:goto420
  56. 560 forx=x1tox2:poke12288+x,peek(53248+x):next:return
  57. 570 cc=1:pc=7:mc=15:return
  58. 580 cc=1:pc=7:mc=0:return
  59. 590 cc=1:pc=0:mc=15:return
  60. 600 cc=0:pc=7:mc=15:return
  61. 610 cc=1:pc=0:mc=0:return
  62. 620 cc=0:pc=0:mc=15:return
  63. 630 cc=0:pc=7:mc=0:return
  64. 640 cc=0:pc=0:mc=0:return
  65. 650 printd$(4);:forx=1to19:print""spc(2)" "spc(34)" ":next:printd$(6);
  66. 660 forx=1to15:print""spc(4)" "spc(30)" ":next:printd$(8);:forx=1to11
  67. 670 print""spc(6)" "spc(26)" ":next:printd$(10);:forx=1to7
  68. 680 print""spc(8)" "spc(22)" ":next:printd$(12);:forx=1to3
  69. 690 print""spc(10)" "spc(18)" ":next:printd$(10);:forx=1to7
  70. 700 print""spc(12)" "spc(14)" ":next:printd$(8);:forx=1to11
  71. 710 print""spc(14)" "spc(10)" ":next:printd$(6);:forx=1to15
  72. 720 print""spc(16)" "spc(6)" ":next:printd$(4);:forx=1to19
  73. 730 printspc(18)"    ":next:return
  74. 740 forx=4to22step2:printd$(x)spc(2)"                                    "
  75. 750 next:forx=5to21step2:printd$(x)spc(19)"  ":next:return
  76. 760 printd$(7)spc(10)"                ":forx=1to11:printspc(17)"  "
  77. 770 next:printspc(10)"                ":printd$(8);:forx=1to5
  78. 780 printspc(10)" "spc(18)" ":next:printd$(14);:forx=1to5
  79. 790 printspc(10)" "spc(18)" ":next:printd$(12)spc(18)"  "
  80. 800 printd$(14)spc(18)"  ":return
  81. 810 forx=4to22:printd$(x)spc(19)" ":next
  82. 820 printd$(13)"                                    ":return
  83. 830 printd$(4)spc(5)"            ":forx=5to10
  84. 840 printd$(x)spc(5)"        ":next:forx=16to21
  85. 850 printd$(x)spc(5)"        ":next
  86. 860 printspc(5)"            ":forx=7to19
  87. 870 printd$(x)spc(10)"      ":next
  88. 880 printd$(13)spc(5)"                              ":return
  89. 890 printd$(6)spc(4)"      "spc(20)"      ":forx=1to13
  90. 900 printspc(4)" "spc(30)" ":next:printspc(4)"      "spc(20)"      "
  91. 910 printd$(7)spc(11)"                  "
  92. 920 printd$(19)spc(11)"                  ":forx=8to18:printd$(x)spc(19)"  "
  93. 930 next:printd$(8)spc(6)"     "spc(18)"     "
  94. 940 printd$(18)spc(6)"     "spc(18)"     ":forx=10to16
  95. 950 printd$(x)spc(10)" "spc(18)" ":next:return
  96. 960 forx=10to16step3:printd$(x)spc(15)"          ":next:forx=3to9
  97. 970 printd$(x)spc(19)"  ":next:forx=17to23:printd$(x)spc(19)"  ":next
  98. 980 printd$(6)spc(10)"                    "
  99. 990 printd$(20)spc(10)"                    ":forx=7to12
  100. 1000 printd$(x)spc(10)" "spc(18)" ":next:forx=14to19
  101. 1010 printd$(x)spc(10)" "spc(18)" ":next:return
  102. 1020 forx=4to20step4:printd$(x)spc(10)"                  "
  103. 1030 printspc(11)"            ":printspc(10)"                  "
  104. 1040 next:return
  105. 1050 data 34,75,40,200,34,75,40,200,45,198,54,111,54,111,45,198,40,200,45,198
  106. 1060 data 45,198,1474,1493,1634,1653,1561,1566,1547,1580,1551,1576,1242,1245
  107. 1070 data 1882,1885,1553,1574,1386,1421,1706,1741,1355,1360,1367,1372,1755,1760
  108. 1080 data 1767,1772,1562,1565,1522,1524,1602,1604,1354,1373,1754,1773,1545,1582
  109. 1090 data 1230,1239,1248,1257,1870,1879,1888,1897,1548,1579,1547,1549,1553,1555
  110. 1100 data 1562,1565,1572,1574,1578,1580,1545,1582,1202,1205,1360,1367,1760,1767
  111. 1110 data 1922,1925,1234,1253,1874,1893,1399,1408,1719,1728,1561,1566,0,28,54
  112. 1120 data 34,54,28,0,0,12,30,12,124,12,20,36,108,28,54,28,99,28,20,54,0,48,120
  113. 1130 data 48,62,48,40,36,54
  114.